home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_077 / samples / fib.d < prev    next >
Text File  |  1992-05-06  |  422b  |  24 lines
  1. int NTIMES = 10,    /* number of times to compute Fibonacci value */
  2.     NUMBER = 24;    /* biggest one we can compute with 16 bits */
  3.  
  4. proc fib(uint x)uint:
  5.  
  6.     if x > 2 then
  7.     fib(x - 1) + fib(x - 2)
  8.     else
  9.     1
  10.     fi
  11. corp;
  12.  
  13. proc main()void:
  14.     uint i, value;
  15.  
  16.     writeln(NTIMES, " iterations.");
  17.  
  18.     for i from 1 upto NTIMES do
  19.     value := fib(NUMBER);
  20.     od;
  21.  
  22.     writeln("Fibonacci(", NUMBER, ") = ", value, ".");
  23. corp;
  24.